# A convenient wrap function of auto_tapply on  
#   different types of a mark kind.
# 
# data.ppp: a marked point pattern
# mark:     a interested catogry makes
# FUN:      user defined function
#
# Author: Guochun Shen
# Data:   2011-12-18
# Project:spatial statistic
# Email:  shenguochun@gmail.com
###############################################################################

auto_mark_apply=function(data.ppp,mark,FUN,...){
	target_mark=get_marks(data.ppp,marks=mark)
	#mc_ategory=unique(target_mark)
	re=auto_tapply(data.ppp,target_mark,FUN,...)
	return(re)
}
